home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00147_Script_sh_stopMovie < prev    next >
Text File  |  1997-07-22  |  514b  |  22 lines
  1. on stopMovie
  2.   
  3.   --  set the stageColor = 255 -- black -- kf 1/20/96
  4.   
  5.   
  6.   --- toss the fixpal object if needed
  7.   global fixpal, gFixPaletXobjFileName
  8.   if objectp(fixpal) then
  9.     fixpal(mDispose)
  10.     closeXlib gFixPaletXobjFileName
  11.   end if
  12.   
  13.   --- reset puppets
  14.   puppetstate [2,3,24], FALSE
  15.   
  16.   puppetsprite 1, true
  17.   set the trails of sprite 1 to 1
  18.   
  19.   global gLastMouseLoc -- per GS 1/23/97 (3)
  20.   set gLastMouseLoc = rect(the mouseH, the mouseV, 0, 0)  -- per GS 1/23/97 (3)
  21.   
  22. end